00100	TITLE SAVDPY
00200	;CALLING SEQUENCE:
00300	;	CALL SAVDPY(INTEGER ARRAY A)  - 2ND WRD + 2 = WDCNT
00400	
00500	INTERNAL SAVDPY
00600	
00650	SAVDPY:	0
00700		INIT 12,17
00800		'DSK   '
00900		0
01000		JRST [	OUTSTR[ASCIZ/CAN'T GET DISK!
01100	/]
01200			JRA 16,1(16)]
01300		SETZB 1,NAME+3
01400		SETZM NAME+2
01500		HLLZS NAME+1
01600		ENTER 12,NAME
01700		JRST [	OUTSTR[ASCIZ/ENTER FAILED!
01800	/]
01900			RELEASE 12,
02000			JRA 16,1(16)]
02100		MOVE 3,(16)	; PICK UP ADDRESS OF BUFFER
02200		MOVE 0,1(3)	; GET WORD COUNT, IN 2ND WD OF BUFFER
02300		ADDI 0,2	; ADD 2 TO ENCOMPASS HEADER WORDS
02400		MOVN 0,0	; PUT NEGATIVE
02410		MOVS 0,0	;     INTO LH FOR IOWD FORMAT
02420		HRR 0,(16)	; PUT IN ADDRESS OF BUFFER ITSELF
02430		SETZ 1,		; WORD AFTER IOWD MUST BE ZERO!!!
02500		OUT 12,
02600		CAIA
02700		OUTSTR[ASCIZ/OUTPUT ERROR!
02800	/]
02900		RELEASE 12,
03000		JRA 16,1(16)
03100	
03200	NAME:	'PLOTZ '
03300		'DAT   '
03400		BLOCK 2
03500	
03600	END